
## Recode variables
# Gender, male
dat2020$gender <- ifelse(dat2020$qS1 == "мужской", 1, 0)
table(dat2020$gender)

# Age
dat2020$age <- dat2020$qS2 

# Education 
table(dat2020$qS3)
dat2020$education <- rep(NA, nrow(dat2020))
dat2020$education[dat2020$qS3=="начальное или ниже, неполная средняя школа (7-8, сейчас 9 классов)"] <- 1
dat2020$education[dat2020$qS3=="средняя школа (10, сейчас 11 классов)"] <- 2
dat2020$education[dat2020$qS3=="начальное профессиональное образование"] <- 3
dat2020$education[dat2020$qS3=="среднее профессиональное образование"] <- 4
dat2020$education[dat2020$qS3=="незаконченное высшее (не менее 3-х курсов вуза)"] <- 5
dat2020$education[dat2020$qS3=="высшее"] <- 6

#Experimental groups indicators 
table(dat2020$qVAR)

#Attitudes towards protest organizers 
table(dat2020$qQ2A)
dat2020$att_org <- rep(NA, nrow(dat2020))
dat2020$att_org[dat2020$qQ2A=="Определенно доверяю"] <- 5 
dat2020$att_org[dat2020$qQ2A=="Скорее доверяю"] <- 4
dat2020$att_org[dat2020$qQ2A=="Скорее не доверяю"] <- 2
dat2020$att_org[dat2020$qQ2A=="Совершенно не доверяю"] <- 1
dat2020$att_org[dat2020$qQ2A=="Затрудняюсь ответить"] <- 3
dat2020$att_org[dat2020$qQ2A=="Отказ от ответа"] <- 3
table(dat2020$att_org)

table(dat2020$qQ1)
dat2020$duty <- rep(NA, nrow(dat2020))
dat2020$duty[dat2020$qQ1=="1 Совсем не считаю это своим долгом"] <- 1
dat2020$duty[dat2020$qQ1==2] <- 2
dat2020$duty[dat2020$qQ1==3] <- 3
dat2020$duty[dat2020$qQ1==4] <- 4
dat2020$duty[dat2020$qQ1==5] <- 5
dat2020$duty[dat2020$qQ1==6] <- 6
dat2020$duty[dat2020$qQ1==7] <- 7
dat2020$duty[dat2020$qQ1==8] <- 8
dat2020$duty[dat2020$qQ1==9] <- 9
dat2020$duty[dat2020$qQ1=="10 Безусловно считаю это своим долгом"] <- 10
dat2020$duty[dat2020$qQ1=="Затрудняюсь ответить"] <- 5
dat2020$duty[dat2020$qQ1=="отказ от ответа"] <- 5
table(dat2020$duty)

dat2020$group1 <- ifelse(dat2020$qVAR == 1, 1, 0)
dat2020$group2 <- ifelse(dat2020$qVAR == 2, 1, 0)
dat2020$group3 <- ifelse(dat2020$qVAR == 3, 1, 0)
dat2020$group4 <- ifelse(dat2020$qVAR == 4, 1, 0)

obey<-subset(dat2020, dat2020$duty > 4)
disobey<-subset(dat2020, dat2020$duty <5)
